home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / FILE PROTECT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  913 b   |  32 lines
  1. 100 OPEN15,8,15,"I0":OPEN2,8,2,"#":P$="LOCK":REM TO UNLOCK FILES, P$="UNLOCK"
  2. 110 T=18:S=0:NL$=CHR$(0):GOSUB230
  3. 120 IFSN=255THENCLOSE2:CLOSE15:END
  4. 130 T=TN:S=SN:GOSUB230
  5. 140 FORJ=0TO7:R(J)=0:NEXT:PRINT"[147]TYPE NUMBER OF FILE"
  6. 150 PRINT"YOU WISH TO ";P$;"[146]"
  7. 160 FORJ=0TO7:FT(J)=J*32+2:PRINT#15,"B-P";2;FT(J):GET#2,PS$:PS(J)=ASC(PS$+NL$)
  8. 170 IFPS(J)<>0THENR(J)=1:GOSUB250:D=J:GOSUB360:IFFL=1THENJ=7
  9. 180 NEXTJ:GOSUB370
  10. 190 GETB$:IFB$=""THEN190
  11. 200 B=VAL(B$):IFB=TETHEN120
  12. 210 IFR(B)=0THEN190
  13. 220 GOSUB300:GOTO190
  14. 230 PRINT#15,"U1";2;0;T;S:GOSUB380
  15. 240 GET#2,TN$,SN$:TN=ASC(TN$+NL$):SN=ASC(SN$+NL$):RETURN
  16. 250 GET#2,J$:GET#2,J$:C=0:F$(J)=""
  17. 260 GET#2,A$:A=ASC(A$+NL$)
  18. 270 IFA<>160ANDA<>0THENF$(J)=F$(J)+A$:C=C+1:IFC<17THEN260
  19. 280 TE=J+1:IFA=0THENFL=1
  20. 290 RETURN
  21. 300 PRINT#15,"B-P";2;FT(B)
  22. 310 IFP$="LOCK"THENPS(B)=PS(B)OR64:PRINT#2,CHR$(PS(B));:GOSUB380:GOTO330
  23. 320 PS(B)=PS(B)AND191:PRINT#2,CHR$(PS(B));:GOSUB380
  24. 330 PRINT#15,"U2";2;0;T;S:GOSUB380
  25. 340 PRINT"":FORK=0TO7:IFR(K)=1THEND=K:GOSUB360
  26. 350 NEXTK:GOSUB370:RETURN
  27. 360 X=(PS(D)AND64)-4:X=X-(X<0)*36:PRINTDCHR$(X);F$(D):RETURN
  28. 370 PRINTTE" NEXT[146]":RETURN
  29. 380 INPUT#15,EN,EM$,ET,ES
  30. 390 IFENTHENPRINTEN,EM$,ET,ES:STOP
  31. 400 RETURN
  32.